Option Explicit
Sub K_Sample003()
    Dim myWd1  As Window
    Dim myWd2  As Window
    Dim mySht1 As Worksheet
    Dim mySht2 As Worksheet
    Set myWd1 = ActiveWindow
    myWd1.NewWindow
    Set myWd2 = ActiveWindow
    Set mySht1 = Worksheets.Add				'u@sW
    Set mySht2 = Worksheets.Add
    'Ƨǵ
    Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical
    myWd2.Activate
    mySht2.Activate
    myWd1.Activate
    mySht1.Activate
    mySht1.Cells(1, 2).Resize(10).Formula = "=$A$1"	'J
    mySht1.Cells(1, 3).Resize(10).Formula = "=$A$1"
    mySht2.Cells(1, 2).Resize(10).Formula = "=" & mySht1.Name & "!$A$1"
    Application.Calculation = xlCalculationManual
    mySht1.Cells(1, 1).Value = "Range"			']wD
    MsgBox "upwd"
    mySht1.Cells(1, 2).Resize(10).Calculate		'wdӰp
    MsgBox "бziT{"
    mySht1.Cells(1, 1).Value = "Sheet"
    MsgBox "upw"
    mySht1.Calculate
    MsgBox "бziT{"
    mySht1.Cells(1, 1).Value = "ALL"
    MsgBox "HҦïӭp"
    Application.Calculate
    MsgBox "бziT{"
    Application.DisplayAlerts = False
    mySht1.Delete
    mySht2.Delete
    Application.DisplayAlerts = False
    myWd2.Close
    myWd1.WindowState = xlMaximized
End Sub
